n := [1,2];
l := [1,[2,3],4];
q := [1,[2,[3,[4]]]];
z := [[1,2],3,5];
define add 
proc( n )
  i := n;
  s := 0;
  while i do s := s + i;  i := i-1 od;
  return s
end;
n := 5;
s := add( n );
copynum := n;
copylist := q;
tuft := cdr([1,2,3,4]);
tuftee := cdr(cdr([1,2,3,4]));
cdroftuft := cdr(tuft)
